﻿Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports Bussines.entity
Public Class variosDAL
    Private conexion As New conexion
    Public Function ListadoPendientesPoderosa(ByVal strCondicion As String) As DataTable
        Dim cnn As SqlConnection = conexion.abrir()
        Dim cmd As New SqlCommand
        Dim dt As New DataTable
        cmd.Connection = cnn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "sp_ListarPendientesSistemaPoderosa"
        cmd.Parameters.Add(New SqlParameter("@sql", SqlDbType.VarChar)).Value = strCondicion
        Try
            dt.Load(cmd.ExecuteReader())
            cmd.Dispose()
            cnn.Close()
            Return dt
        Catch ex As Exception
            Return dt
        Finally

        End Try
    End Function

End Class
